home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-2.dxr / Internal_1_Movie script.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  1.9 KB  |  75 lines
  1. on startMovie
  2.   global nTempo, lsSeries, lnMaxSeries, NumCd, nCursor1, nMask1
  3.   set NumCd to 2
  4.   set nTempo to 180
  5.   set lsSeries to ["chica diesel", "blacknight", "motard", "sporte", "channel", "batgirl"]
  6.   set lnMaxSeries to [20, 19, 15, 18, 21, 16]
  7.   set nCursor1 to the number of member "Cursor1"
  8.   set nMask1 to the number of member "Mask1"
  9. end
  10.  
  11. on showFoto
  12.   global sSerie, nSerie, nOrden, nMaxSerie, nPos
  13.   set the locH of sprite 9 to 177 + ((nPos - 1) * 31)
  14.   set the locV of sprite 9 to 39 + ((nSerie - 1) * 58)
  15.   updateStage()
  16.   set sMiembro to nOrden & "p"
  17.   set the member of sprite 30 to member sMiembro of castLib sSerie
  18.   puppetTransition(member 3 of castLib "Transiciones")
  19.   updateStage()
  20. end
  21.  
  22. on snapshot v1, h1, v2, h2
  23.   global sPathIni, sMensaje01
  24.   if azReadDir(sPathIni & "snapshot\*.*") = [] then
  25.     if not azCreatDir(sPathIni & "snapshot") then
  26.       alert("Unable to create directory")
  27.     end if
  28.   end if
  29.   openXLib(sPathIni & "Capture.dll")
  30.   openXLib(sPathIni & "Fileio.dll")
  31.   set oGrab to Capture(mnew, v1 + the stageTop, h1 + the stageLeft, v2 + the stageTop, h2 + the stageLeft)
  32.   set bLleno to 0
  33.   repeat with xx = 0 to 100
  34.     if xx = 100 then
  35.       set bLleno to 1
  36.     end if
  37.     set sOrden to string(xx)
  38.     if xx < 10 then
  39.       set sOrden to "0" & sOrden
  40.     end if
  41.     set sFitxer to sPathIni & "snapshot\vtm_fp" & sOrden & ".BMP"
  42.     set oFitxer to fileio(mnew, "read", sFitxer)
  43.     if objectp(oFitxer) then
  44.       oFitxer(mdispose)
  45.       next repeat
  46.     end if
  47.     if oFitxer = -43 then
  48.       set xx to 101
  49.     end if
  50.   end repeat
  51.   closeXLib(sPathIni & "Fileio.dll")
  52.   if bLleno then
  53.     alert(sMensaje01)
  54.   else
  55.     oGrab(mSave, sFitxer)
  56.   end if
  57.   oGrab(mdispose)
  58.   closeXLib(sPathIni & "Capture.dll")
  59. end
  60.  
  61. on visible
  62.   repeat with xx = 1 to 28
  63.     set the visible of sprite xx to 1
  64.   end repeat
  65. end
  66.  
  67. on mirapuppets
  68.   repeat with xx = 1 to 48
  69.     if the puppet of sprite xx then
  70.       put xx
  71.     end if
  72.   end repeat
  73.   put "ok."
  74. end
  75.